(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     53539,       1321]
NotebookOptionsPosition[     40395,       1049]
NotebookOutlinePosition[     41128,       1074]
CellTagsIndexPosition[     41048,       1069]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.0", "HistoryData",
  CellTags->"New",ExpressionUUID->"612f9729-ce67-4cb5-99c5-4924471274c9"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"459b9bee-3f07-4539-9a5e-c7c2ad8edf1f"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"f2dcb86e-881c-4642-a75a-02b37ac2838c"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"c649a033-d99f-4898-86ee-6cba19e3d68e"]
}], "History",
 CellChangeTimes->{{3.8212090504997883`*^9, 3.8212090508518424`*^9}},
 CellID->1247902091,ExpressionUUID->"23217300-ba47-427f-9618-ee1ed94d5c62"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"476e9058-6f1c-4a2c-823c-9bbcf31a1e58"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"9e1dc354-f401-4126-b312-e7fbeac0c42e"],

Cell["RefpropLink Package", "Categorization",
 CellLabel->"Paclet Name",
 CellID->710011846,ExpressionUUID->"daad775b-3cb8-4a73-ad88-4b51724a59d9"],

Cell["RefpropLink`", "Categorization",
 CellLabel->"Context",
 CellID->255760520,ExpressionUUID->"8e141ec0-f48d-4d3a-800e-96a1f55d562f"],

Cell["RefpropLink/ref/fugacity", "Categorization",
 CellChangeTimes->{{3.821209042843257*^9, 3.8212090456677084`*^9}},
 CellLabel->"URI",
 CellID->119959829,ExpressionUUID->"7c3aa952-004a-4530-b8e9-5e6017805516"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"dd4ce286-acde-4c6a-b36e-ac34d5cca86b"],

Cell["fugacity", "Keywords",
 CellChangeTimes->{{3.8212090150914707`*^9, 3.821209021416527*^9}},
 CellID->1164421360,ExpressionUUID->"f8946ddb-dd46-4bd3-9fa7-2c1c0ad64b9c"],

Cell["partial pressure", "Keywords",
 CellChangeTimes->{{3.8212090150914707`*^9, 3.8212090269188213`*^9}},
 CellID->37148927,ExpressionUUID->"98718c23-12b4-4c47-94ba-4ccb6fe02847"],

Cell["real gas", "Keywords",
 CellChangeTimes->{{3.8212090150914707`*^9, 3.8212090324999223`*^9}},
 CellID->91294015,ExpressionUUID->"9c5598a1-a48c-451b-be3e-b7ce3d57dd47"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"dbc6f919-efaa-449b-a0f9-08bd14cddf6b"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"5086b5af-fdf6-44a8-a048-ceb547565b04"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"574fb1dc-f8ed-412a-9029-2ff32c6aac8e"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"fb5bd9b2-04f6-4f3e-8fc3-032a8173ea4a"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"acda7792-bf96-4d71-a39a-4a2b46f3b6fa"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"9b52b2fb-8db5-4e97-ad79-a510212487a6"],

Cell["Patrick Fourspring", "Details",
 CellChangeTimes->{{3.821208993987904*^9, 3.8212089972432003`*^9}},
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"b6814cba-b7db-4309-bdaf-4b2d1f6cad62"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.8212090005314045`*^9, 3.8212090027075853`*^9}},
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"8d18b29c-08fd-4215-a6f6-0b0d96f86ea4"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.821209005349493*^9, 3.821209006875413*^9}},
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"941e0d70-2a09-4f69-bc8f-ecc274280f09"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"92637c71-6d6f-4aa5-b71d-3371ec5493ef"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"796ee797-f0d4-458a-a644-00f693cae07f"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"e8ece1c9-842e-41a2-a913-9eb2e741e851"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"1b357203-7548-425c-a1e0-9e05cbb23113"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"265db5bf-a8fe-403a-8505-c7e9d9a98b39"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"7b877f91-52ee-4d02-91fc-a7461a1ea1bb"]
}, Closed]],

Cell[CellGroupData[{

Cell["fugacity", "ObjectName",
 CellChangeTimes->{{3.8212090796129265`*^9, 3.8212090867149076`*^9}},
 CellID->1224892054,ExpressionUUID->"af5cb20b-71ea-4cdf-a060-0cb7a726f215"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"ba3e3d27-66c3-4cfc-b9bf-8457ab5d7169"],
 Cell[BoxData[
  RowBox[{"fugacity", "[", 
   RowBox[{
    ButtonBox["t",
     BaseStyle->"Link"], ",", " ", 
    ButtonBox["d",
     BaseStyle->"Link"], ",", " ", 
    StyleBox["z", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "91560519-2973-4d96-90a6-a3604f038f9b"],
 "\[LineSeparator]compute fugacity, ",
 Cell[BoxData[
  SubscriptBox["\[ScriptF]", "\[ScriptI]"]],
  FormatType->"StandardForm",ExpressionUUID->
  "bdc2aff3-26ed-45de-919e-735d14b68c95"],
 " , for each of the ",
 Cell[BoxData[
  StyleBox["nc", "TI"]], "InlineFormula",ExpressionUUID->
  "ec4ebfa8-9039-4ffc-bb42-09f4d21ac854"],
 " components of a mixture."
}], "Usage",
 CellChangeTimes->{
  3.819453534620748*^9, {3.821160084021881*^9, 3.8211601513897257`*^9}, {
   3.821160439141257*^9, 3.8211604456727877`*^9}, {3.821208982702084*^9, 
   3.8212089860222054`*^9}, {3.8213422892287836`*^9, 
   3.8213423037848864`*^9}},ExpressionUUID->"5e240d8f-6f9c-427b-9e3b-\
c8da601f0b6c"],

Cell["\<\
Computes fugacity of single or mixture components.  Calls the REFPROP \
function FGCTY2dll, which is the newer calculation that uses analytical \
differentiation of the dimensionless residual Helmholtz energy; based on the \
derivations in the GERG-2004 document for natural gas.\
\>", "Notes",
 CellChangeTimes->{{3.8211601558567877`*^9, 3.8211601879988556`*^9}, {
  3.8212091599301157`*^9, 3.821209275099162*^9}},
 CellID->1067943069,ExpressionUUID->"49bc5376-75c6-4823-95dc-628aae001078"],

Cell[TextData[{
 "For a single component, ",
 StyleBox["ideal",
  FontSlant->"Italic"],
 " gas, fugacity will equal the pressure, by definition.  For an ideal \
mixture, the individual component fugacities will equal the partial pressure, \
",
 Cell[BoxData[
  RowBox[{
   SubscriptBox["x", "i"], "*", "P"}]],
  FormatType->"StandardForm",ExpressionUUID->
  "58c5b3c2-f3b7-4773-aff1-70bf16e66005"],
 ", of each component. For ",
 StyleBox["real",
  FontSlant->"Italic"],
 " gases and mixtures, the fugacity will deviate slightly from ideal."
}], "Notes",
 CellChangeTimes->{{3.8211602056236954`*^9, 3.8211603761516724`*^9}, {
  3.8211604155762672`*^9, 3.8211604238222203`*^9}},
 CellID->233093082,ExpressionUUID->"fd055398-65c3-4ff6-962c-19edab993cc8"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["t", "TI"]], "InlineFormula",ExpressionUUID->
  "0cef821c-5dd3-4e87-818d-1fbfb473359f"],
 " is the state point temperature and may be passed as a ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "cd644ae2-5cfe-452e-b45e-4ba7a8abd7bb"],
 " with any temperature units attached or a non-Quantity in units of [K]."
}], "Notes",
 CellChangeTimes->{{3.81903018678325*^9, 3.8190302516148677`*^9}, {
   3.8190302907741594`*^9, 3.8190302981983376`*^9}, {3.81903067685382*^9, 
   3.8190306848554535`*^9}, {3.8194528100034456`*^9, 3.819452811000779*^9}, 
   3.821059130471207*^9},
 CellID->348432122,ExpressionUUID->"de428b8d-6106-4bac-b1c2-7324969cfb74"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["d", "TI"]], "InlineFormula",ExpressionUUID->
  "af884c1e-0eec-40b8-9f79-61a0613139fc"],
 " is the state point molar density and may be passed as a ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "c808f38b-391c-4c74-855f-ad8e652013e6"],
 " with any molar density units attached or a non-Quantity in units of \
[mol/L]."
}], "Notes",
 CellChangeTimes->{{3.8190302307995586`*^9, 3.8190303101822643`*^9}, {
   3.819030667360222*^9, 3.819030692606697*^9}, {3.8192612177182856`*^9, 
   3.8192612601707706`*^9}, {3.8194528206729164`*^9, 3.8194528212563577`*^9}, 
   3.821059138854824*^9},
 CellID->36396795,ExpressionUUID->"6f537478-e75a-4cd3-bb97-a5b9e85e6e40"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "4a2f889f-1fd8-4363-ada8-b23d2d7f7b6c"],
 " is the overall composition (List of mole fractions) and can be omitted for \
pure fluids."
}], "Notes",
 CellChangeTimes->{{3.8190306223764863`*^9, 3.8190306602302685`*^9}, {
  3.821342268506212*^9, 3.821342277496187*^9}},
 CellID->702123745,ExpressionUUID->"408e97a1-606c-4ed8-b1f4-202d171233d4"],

Cell[TextData[{
 "Inputs ",
 Cell[BoxData[
  StyleBox["t", "TI"]], "InlineFormula",ExpressionUUID->
  "6d168ecd-7492-4406-b0bd-4b63486a4cef"],
 " and ",
 Cell[BoxData[
  StyleBox["d", "TI"]], "InlineFormula",ExpressionUUID->
  "73005b97-fb24-429b-94c8-36313b0e6003"],
 " must both be Quantities or both be non-Quantities.  Mixed \
Quantity/non-Quantity will generate and error message."
}], "Notes",
 CellChangeTimes->{{3.8190303255761027`*^9, 3.819030483742182*^9}, {
  3.8190309752509346`*^9, 3.8190309775258503`*^9}, {3.819261354839636*^9, 
  3.819261396567091*^9}, {3.819452833881598*^9, 3.819452844096285*^9}},
 CellID->185672948,ExpressionUUID->"8646ad66-59cf-4910-9d8f-d731dd4e033c"],

Cell[TextData[{
 "Return fugacity values, ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[ScriptF]", "TR"], "\[ScriptI]"]], "InlineFormula",
  ExpressionUUID->"4ff726b0-8f8f-496f-80ef-7f9b2d5ef8f5"],
 " , are returned in a ruled ",
 Cell[BoxData[
  ButtonBox["List",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "7d8c3005-38f2-4459-a5ca-3528540f6687"],
 ".  If both inputs are passed as Quantities, the results will be returned as \
a List of Quantity values.  If both inputs are passed as non-Quantities, then \
non-Quantities will be returned in the ruled list."
}], "Notes",
 CellChangeTimes->{{3.8190304949551992`*^9, 3.8190305337185483`*^9}, {
  3.8190307053446364`*^9, 3.8190309461926317`*^9}, {3.8190309808789177`*^9, 
  3.8190309935021305`*^9}, {3.819261301839381*^9, 3.8192613287972717`*^9}, {
  3.8210590566366835`*^9, 3.8210591142306376`*^9}, {3.8211604836941123`*^9, 
  3.8211606208543243`*^9}},
 CellID->10490178,ExpressionUUID->"66a5031b-fc63-4685-bb1f-4dd5c82c5b6c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"8bc84343-7dd3-46a7-b538-c6585ab7ab15"],

Cell[TextData[ButtonBox["Pure Fluids (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/PureFluidsLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.829558303402691*^9}, {
  3.829558341260483*^9, 3.8295583414499683`*^9}},
 CellID->341631938,ExpressionUUID->"fe803c1f-1cc0-4327-b075-38c8efaaae28"],

Cell[TextData[ButtonBox["Mixtures (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/MixturesLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.8295583216578856`*^9}, {
  3.829558353292308*^9, 3.8295583534847927`*^9}},
 CellID->339404089,ExpressionUUID->"3d2591d7-9d10-4a54-be48-983097a172fd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"646c6404-8665-42fd-bef0-92fed0ef91a8"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"b305d1fb-a4b3-46e4-ad2d-0a33ded42e71"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"51a952f6-a5e3-4e29-bfa3-ec7cd4a2d8b7"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"f83a356d-b4bb-48f0-a7e7-6be543729993"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"e6816e94-7e51-4c4c-a91e-f51feafd0514"],

Cell["XXXX", "SeeAlso",
 CellID->929782353,ExpressionUUID->"ae1b094e-46ae-4e5e-8a64-db85809321d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"66b033bc-7ac3-4f37-8a76-5d74d67d9d5b"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"7142a65f-a76f-4086-bff0-d8de6240a1ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"d471fc03-ed79-46a0-bf44-4bd65a257721"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Pure Fluids", "ExampleSubsection",ExpressionUUID->
   "a5cc5e09-0fff-4f59-846b-90b4d62b1881"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.818818756158816*^9, 3.818818758015851*^9}},
 CellID->70916644,ExpressionUUID->"1d6e589a-f05a-45ec-9324-886f71e78817"],

Cell["Load a pure fluid file using setup.", "ExampleText",
 CellChangeTimes->{{3.8188187705034294`*^9, 3.8188187889102397`*^9}},
 CellID->541852276,ExpressionUUID->"ff1d4da5-6dff-43b9-96a0-71d8f28b516d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ierr", "=", 
  RowBox[{"setup", "[", 
   RowBox[{"{", "\"\<Water\>\"", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8188187948832483`*^9, 3.8188188137692227`*^9}},
 CellLabel->"In[25]:=",
 CellID->810243786,ExpressionUUID->"306dbcb0-016d-4bd1-a008-f37d31a041d5"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.818818816281536*^9, 3.81882035483996*^9, 3.818820471122165*^9, 
   3.8188205526950746`*^9, 3.8190315064964323`*^9, 3.819031705416542*^9, 
   3.8190318941399403`*^9, 3.819261888314184*^9, {3.8192624996634846`*^9, 
   3.819262506657809*^9}, 3.8210893351286983`*^9, 3.821090029010166*^9, 
   3.821090271144651*^9, 3.821091539640946*^9, 3.8210926401520395`*^9, 
   3.8211561195681963`*^9, 3.82115927365673*^9, 3.821160707816773*^9, 
   3.821161087265049*^9, 3.8212076775103407`*^9, 3.8212078462520943`*^9, 
   3.8212079341979113`*^9, 3.8212081371222553`*^9, 3.821208656230101*^9, 
   3.8213414291039433`*^9, 3.8225464007370768`*^9},
 CellLabel->"Out[25]=",
 CellID->739848057,ExpressionUUID->"9a7a6577-ca76-4a75-869b-325ac184fea0"]
}, Open  ]],

Cell["\<\
Set a temperature and the vapor molar density of the liquid at that \
temperature.\
\>", "ExampleText",
 CellChangeTimes->{{3.8188188473264933`*^9, 3.8188188637824917`*^9}, {
  3.819031317613499*^9, 3.8190313451099653`*^9}, {3.819031395973961*^9, 
  3.8190313998625603`*^9}, {3.8192617687000117`*^9, 3.8192618013646708`*^9}, {
  3.821089404433365*^9, 3.821089458464902*^9}, {3.821160726261451*^9, 
  3.8211607317816844`*^9}},
 CellID->262208212,ExpressionUUID->"06e25321-4eff-4c2c-ab5c-6e04b4342512"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"373.15", "K"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["D", "V"], "=", 
   RowBox[{
    RowBox[{"satt", "[", "T", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Psat", "=", 
  RowBox[{
   RowBox[{"satt", "[", "T", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.81881886662792*^9, 3.818818894352872*^9}, {
  3.8190313498463016`*^9, 3.819031437079048*^9}, {3.8191275886230555`*^9, 
  3.819127590589822*^9}, {3.81926187546952*^9, 3.819261999373214*^9}, {
  3.81926207816553*^9, 3.8192621947657523`*^9}, {3.8192622782455344`*^9, 
  3.8192622945579176`*^9}, {3.819262893461505*^9, 3.8192629209978743`*^9}, {
  3.819262967646141*^9, 3.8192629972300386`*^9}, {3.819263087533574*^9, 
  3.8192631655330105`*^9}, {3.8192632175090313`*^9, 3.819263383620864*^9}, {
  3.819263414959094*^9, 3.819263416862979*^9}, {3.8192636916462355`*^9, 
  3.819263725389036*^9}, {3.819264217917034*^9, 3.8192642532226315`*^9}, {
  3.819264292709047*^9, 3.819264313237159*^9}, {3.821089352137244*^9, 
  3.8210893873291407`*^9}, {3.821160718839291*^9, 3.821160719654114*^9}, {
  3.8211607575577536`*^9, 3.8211607821499596`*^9}},
 CellLabel->"In[26]:=",
 CellID->356756438,ExpressionUUID->"c1d28b49-5ee7-4b23-b8db-588eb9111c25"],

Cell[BoxData[
 TemplateBox[{
  "101.41799666329449`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8211607855130005`*^9, 3.8211610322840557`*^9, 
  3.8211610904335814`*^9, 3.8212076814667597`*^9, 3.821207850418951*^9, 
  3.821207937944891*^9, 3.821208139964653*^9, 3.8212086593876567`*^9, 
  3.8213414322325478`*^9, 3.8225464063022203`*^9},
 CellLabel->"Out[28]=",
 CellID->214620745,ExpressionUUID->"d65d72bb-8ded-4e72-ae3b-17a2064aab75"]
}, Open  ]],

Cell[TextData[{
 "Calculate the fugacity of the fluid at this saturated vapor state using ",
 Cell[BoxData[
  ButtonBox["fugacity",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Fugacity"]], "InlineFormula",
  ExpressionUUID->"04518fe7-6bb3-44f1-9ab4-e8c17a49cf3f"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.821089501738182*^9, 3.8210895247546315`*^9}, {
   3.821089897689337*^9, 3.821089923545165*^9}, 3.821092406231555*^9, {
   3.8210929384952183`*^9, 3.8210929602799625`*^9}, {3.8211560101527624`*^9, 
   3.821156052488577*^9}, {3.82116081532627*^9, 3.821160855207618*^9}, {
   3.8212091018983407`*^9, 3.8212091213802395`*^9}},
 CellID->533785243,ExpressionUUID->"9d9c1903-bfef-45eb-a756-28922361c355"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fugacity", "[", 
  RowBox[{"T", ",", 
   SubscriptBox["D", "V"]}], "]"}]], "Input",
 CellChangeTimes->{{3.821089929544153*^9, 3.8210899482730675`*^9}, {
  3.8211560981125407`*^9, 3.8211561012591352`*^9}, {3.8211607980704126`*^9, 
  3.8211607992621975`*^9}, {3.8211608715110207`*^9, 3.8211608724215574`*^9}, {
  3.8212076393094954`*^9, 3.821207643251953*^9}, {3.8213413806734257`*^9, 
  3.8213414223450165`*^9}},
 CellLabel->"In[29]:=",
 CellID->65065394,ExpressionUUID->"2a569d0c-d76c-493e-8f44-95046f3aec5b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptF]\\),\\(\[ScriptI]\\)]\\)\"\>\
", "\[Rule]", 
   TemplateBox[{
    "99.89727120035582`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8210899505908403`*^9, 3.8210900376779656`*^9, 3.82109027869543*^9, 
   3.821091548334697*^9, 3.821092651938492*^9, 3.8211561305158896`*^9, 
   3.821159282345497*^9, {3.821160860144388*^9, 3.8211608759900465`*^9}, 
   3.8211610212744975`*^9, 3.8211610993387394`*^9, 3.821207685768257*^9, 
   3.821207855926245*^9, 3.82120794187538*^9, 3.821208144681041*^9, 
   3.8212086637569733`*^9, {3.821341423982609*^9, 3.8213414362158947`*^9}, 
   3.822546411041546*^9},
 CellLabel->"Out[29]=",
 CellID->97289482,ExpressionUUID->"29f7aeca-1969-4a18-9f50-16f27e053a5f"]
}, Open  ]],

Cell[TextData[{
 "Note that the fugacity is very near the state point pressure.  The fugacity \
coefficient, is just ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox["\[ScriptF]", "\[ScriptI]"], "/", "P"}]],
  FormatType->"StandardForm",ExpressionUUID->
  "ddbda967-5c13-4a31-a0e9-0ac7a4b96d2c"],
 " and should be close to 1.0."
}], "ExampleText",
 CellChangeTimes->{{3.821209294028544*^9, 3.82120931588507*^9}, {
  3.8213412759205837`*^9, 3.821341332089376*^9}},
 CellID->138776035,ExpressionUUID->"9db527c2-ea9a-4955-a07e-62167cb3f834"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[Phi]", "\[ScriptI]"], "=", 
  RowBox[{
   RowBox[{
    RowBox[{"fugacity", "[", 
     RowBox[{"T", ",", 
      SubscriptBox["D", "V"]}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", "Psat"}]}]], "Input",
 CellChangeTimes->{{3.821341344667739*^9, 3.821341359873083*^9}, {
  3.8213414556020813`*^9, 3.8213414816175165`*^9}},
 CellLabel->"In[30]:=",
 CellID->48723719,ExpressionUUID->"a2fc6b0f-f0f5-462d-8226-a342a21a078d"],

Cell[BoxData["0.9850053687415318`"], "Output",
 CellChangeTimes->{{3.821341464143242*^9, 3.8213414827554398`*^9}, 
   3.822546415949417*^9},
 CellLabel->"Out[30]=",
 CellID->725194,ExpressionUUID->"5dfee06f-95c2-403a-aaf1-a72e8b1cb710"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "07cec026-2a98-426b-8756-431abf18eb41"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->454095037,ExpressionUUID->"9dfeb655-04d8-449f-b4d3-9ae1ce51cf9c"],

Cell[TextData[{
 "Note that if ",
 Cell[BoxData[
  StyleBox["t", "TI"]], "InlineFormula",ExpressionUUID->
  "691aa4c9-b434-41a6-bac3-6d86a7dc4309"],
 " and ",
 Cell[BoxData[
  StyleBox["d", "TI"]], "InlineFormula",ExpressionUUID->
  "aaf0cf63-cc7b-4b5d-8f94-ee3d7f5976c7"],
 " are passed as a non-Quantity parameter, then non-Quantity values will be \
retuned from the ",
 Cell[BoxData[
  ButtonBox["fugacity",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Fugacity"]], "InlineFormula",
  ExpressionUUID->"1f48c5be-549e-4167-a620-931be7fbf981"],
 " function with unit \"hints\" in the ruled list.  The input parameters \
should be in the default REFPROP units of [K] and [mol/L] when passed."
}], "ExampleText",
 CellChangeTimes->{{3.818908953564636*^9, 3.8189090055166936`*^9}, {
  3.8189092095072694`*^9, 3.818909225843593*^9}, {3.8191282855366015`*^9, 
  3.8191283218524947`*^9}, {3.819128432907544*^9, 3.819128442323374*^9}, {
  3.8192641124300957`*^9, 3.8192641135092106`*^9}, {3.8197202981661453`*^9, 
  3.819720307161132*^9}, {3.8210917726338806`*^9, 3.821091869895812*^9}, {
  3.8211563062559586`*^9, 3.821156325272108*^9}, {3.821208794215104*^9, 
  3.8212088676986284`*^9}},
 CellID->216850838,ExpressionUUID->"259bc89f-007f-4770-9510-d8863c76d47f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Tmag", "=", 
   RowBox[{"QuantityMagnitude", "[", 
    RowBox[{"T", ",", "K"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["Dmag", "V"], "=", 
   RowBox[{"QuantityMagnitude", "[", 
    RowBox[{
     SubscriptBox["D", "V"], ",", 
     RowBox[{"mol", "/", "L"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"fugacity", "[", 
  RowBox[{"Tmag", ",", 
   SubscriptBox["Dmag", "V"]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8210918993041706`*^9, 3.821091901113303*^9}, {
  3.821208925732434*^9, 3.821208952467935*^9}},
 CellLabel->"In[31]:=",
 CellID->69973367,ExpressionUUID->"948bf81e-8507-4113-b1b4-73ec60e8436a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptF]\\),\\(\[ScriptI]\\)]\\) \
[kPa]\"\>", "\[Rule]", "99.89727120035582`"}], "}"}]], "Output",
 CellChangeTimes->{3.821208953677673*^9, 3.821341492546258*^9, 
  3.8225464210387764`*^9},
 CellLabel->"Out[33]=",
 CellID->11534115,ExpressionUUID->"2268c4d0-a41b-405a-8f8b-5f9351efd770"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "c3167641-c179-4e0d-8202-ce3f4243f294"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->562040404,ExpressionUUID->"3e425c9d-b8ea-4897-b2ce-dada0e73cc47"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Mixtures", "ExampleSubsection",ExpressionUUID->
   "445f7a14-3b83-4d4c-9f42-4bc3253ce0b5"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.8185037409217396`*^9, 3.8185037422332306`*^9}},
 CellID->450938995,ExpressionUUID->"03a25205-b0c7-4c7d-849e-6cbabe771a5c"],

Cell[TextData[{
 "Load mixture components using ",
 Cell[BoxData[
  ButtonBox["setmix",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Setmix"]], "InlineFormula",
  ExpressionUUID->"f3e9a9f9-4eab-49c6-9516-345550000616"],
 ", capturing the bulk mole fractions returned."
}], "ExampleText",
 CellChangeTimes->{{3.818503753065239*^9, 3.8185037615884485`*^9}, {
  3.8198667422562428`*^9, 3.8198668197540216`*^9}, {3.8198669115355716`*^9, 
  3.819866948478897*^9}},
 CellID->58646033,ExpressionUUID->"e0f97880-d8e5-4be4-808d-c844f311f658"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    SubscriptBox["hFluids", "Air"], ",", 
    SubscriptBox["z", "Air"]}], "}"}], "=", 
  RowBox[{
   RowBox[{"setmix", "[", "\"\<AIR.MIX\>\"", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8193692499332485`*^9, 3.819369265393936*^9}, {
  3.81936997358829*^9, 3.8193699973058715`*^9}, {3.8193714064349923`*^9, 
  3.8193714202505083`*^9}, {3.819438996330527*^9, 3.8194390142097187`*^9}, {
  3.8194390620497975`*^9, 3.8194390681454997`*^9}, {3.8194391433872805`*^9, 
  3.819439144273913*^9}, {3.819439999010975*^9, 3.819440000129983*^9}, {
  3.8194420556432285`*^9, 3.819442064105628*^9}},
 CellLabel->"In[34]:=",
 CellID->8141322,ExpressionUUID->"ab2216d5-d0fb-4151-8887-cfa37cf589aa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"NITROGEN\"\>", ",", "\<\"ARGON\"\>", ",", "\<\"OXYGEN\"\>"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7812`", ",", "0.0092`", ",", "0.2096`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8185038267192945`*^9, 3.819055757362919*^9, 
  3.819264891338369*^9, 3.8193078417560415`*^9, 3.8194435850359507`*^9, 
  3.821092123772871*^9, 3.821092682801957*^9, 3.821209368284971*^9, 
  3.821341513775486*^9, 3.8225464340330205`*^9},
 CellLabel->"Out[34]=",
 CellID->213225549,ExpressionUUID->"e7db544a-88ef-4d37-8497-72b8bf96c12f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"nc", "=", 
  RowBox[{"Length", "[", 
   SubscriptBox["z", "Air"], "]"}]}]], "Input",
 CellChangeTimes->{{3.821209926446313*^9, 3.821209935675637*^9}, {
  3.8213415389372005`*^9, 3.8213415437772846`*^9}},
 CellLabel->"In[35]:=",
 CellID->169136916,ExpressionUUID->"0bcfe231-dc10-4ede-8cfd-d30c52807504"],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{
  3.8212099375725594`*^9, {3.8213415183931713`*^9, 3.821341545146594*^9}, 
   3.8225464382407665`*^9},
 CellLabel->"Out[35]=",
 CellID->460323837,ExpressionUUID->"18d70f1e-3a91-4a2c-92e3-4a4471ee56b6"]
}, Open  ]],

Cell[TextData[{
 "Specify state points at atmospheric pressure, providing the tertiary molar \
composition for Air in the vapor phase.  The ",
 Cell[BoxData[
  ButtonBox["satp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Satp"]], "InlineFormula",
  ExpressionUUID->"aaba824c-29f3-4e78-8758-82a4a5d3872d"],
 " function allows us to extract the saturation temperature, vapor/liquid \
densities, and molar compositions in each phase."
}], "ExampleText",
 CellChangeTimes->{{3.8185038635129395`*^9, 3.818503880057673*^9}, {
  3.8187504448940525`*^9, 3.8187504593882914`*^9}, {3.8187507437330084`*^9, 
  3.818750745660825*^9}, {3.8187510155641294`*^9, 3.8187510198446827`*^9}, {
  3.818751559196535*^9, 3.8187515604212313`*^9}, {3.8187519850867167`*^9, 
  3.81875198808869*^9}, {3.8192644531889396`*^9, 3.819264490436343*^9}, {
  3.8192647949401283`*^9, 3.8192648024450607`*^9}, {3.8192650099482164`*^9, 
  3.819265057756382*^9}, {3.819308018303975*^9, 3.819308020935944*^9}, {
  3.8194438933206234`*^9, 3.8194438959446063`*^9}, {3.8210920529433136`*^9, 
  3.8210920536633863`*^9}, {3.8210922160321817`*^9, 3.821092293560858*^9}},
 CellID->728165588,ExpressionUUID->"d1ba1d08-7fb8-42f9-ac70-a1d4f469686a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"P", "=", 
   RowBox[{"1", "atm"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"Tsat", ",", 
    SubscriptBox["D", "L"], ",", 
    SubscriptBox["D", "V"], ",", "x", ",", "y"}], "}"}], "=", 
  RowBox[{
   RowBox[{"satp", "[", 
    RowBox[{"P", ",", 
     SubscriptBox["z", "Air"], ",", "2"}], "]"}], " ", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8185039121917796`*^9, 3.8185039651431913`*^9}, 
   3.81875060766185*^9, {3.818750757669739*^9, 3.8187507597671223`*^9}, {
   3.8187509497102375`*^9, 3.818750949797014*^9}, {3.8187510280377755`*^9, 
   3.818751043781706*^9}, 3.8187512109337626`*^9, {3.8187512953570166`*^9, 
   3.81875129585369*^9}, {3.8187515278613214`*^9, 3.818751547742134*^9}, {
   3.8192648114530025`*^9, 3.8192649314850492`*^9}, {3.819264985773856*^9, 
   3.819264987909147*^9}, {3.81926511098209*^9, 3.819265134141136*^9}, {
   3.819307810200428*^9, 3.819307836456219*^9}, {3.819308000641202*^9, 
   3.8193080011278744`*^9}, {3.8194435919454713`*^9, 
   3.8194435975534754`*^9}, {3.8210920814012084`*^9, 
   3.8210921158899517`*^9}, {3.821092193825565*^9, 3.82109219449677*^9}, {
   3.821248479326813*^9, 3.821248481061203*^9}, 3.821248633629181*^9, {
   3.821249278468172*^9, 3.8212492806373425`*^9}, {3.8212498764123135`*^9, 
   3.821249876724478*^9}, {3.8212499687972307`*^9, 3.8212499691333327`*^9}, {
   3.8213415535700965`*^9, 3.8213415537925043`*^9}, 3.8213417919296803`*^9, 
   3.82134192707428*^9},
 CellLabel->"In[36]:=",
 CellID->109800155,ExpressionUUID->"bcad71f7-51b8-46a5-9965-65c9cbae1088"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"81.74844596597728`", "\"K\"", "kelvins", "\"Kelvins\""},
    "Quantity"], ",", 
   TemplateBox[{"32.50181040661752`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"], ",", 
   TemplateBox[{"0.1549499960055466`", 
     RowBox[{
      "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"L\""}],
      "moles per liter", 
     FractionBox["\"Moles\"", "\"Liters\""]},
    "Quantity"], ",", 
   RowBox[{"{", 
    RowBox[{
    "0.47200576589409293`", ",", "0.01460132146438331`", ",", 
     "0.5133929126415238`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7812`", ",", "0.0092`", ",", "0.2096`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8192648978499575`*^9, 3.8192649331764975`*^9}, 
   3.8192649910906687`*^9, {3.819265113909234*^9, 3.8192651351733837`*^9}, 
   3.8193078456426563`*^9, 3.8194436036222486`*^9, 3.819868811479173*^9, {
   3.8210921184899983`*^9, 3.821092128093317*^9}, 3.821092195804246*^9, 
   3.8210926865918226`*^9, 3.821209381078752*^9, 3.8212484844680643`*^9, 
   3.821248634662419*^9, 3.8212492826719027`*^9, 3.821249877899308*^9, 
   3.8212499700827928`*^9, 3.821341555500905*^9, 3.8213417944658704`*^9, 
   3.8213419373338146`*^9, 3.8225464431526566`*^9},
 CellLabel->"Out[37]=",
 CellID->166836263,ExpressionUUID->"53b0e96d-d90d-421d-9475-382c83560dfe"]
}, Open  ]],

Cell["\<\
Calculate the fugacities of each of the components in the fluid at the \
saturated vapor state.\
\>", "ExampleText",
 CellChangeTimes->{{3.821089501738182*^9, 3.8210895247546315`*^9}, {
   3.821089897689337*^9, 3.821089923545165*^9}, 3.821092389367657*^9, {
   3.8212093935952835`*^9, 3.8212094225298767`*^9}},
 CellID->14467608,ExpressionUUID->"866781f8-3494-403d-993a-94c316f8f6ac"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fugacity", "[", 
  RowBox[{"Tsat", ",", 
   SubscriptBox["D", "V"], ",", "y"}], "]"}]], "Input",
 CellChangeTimes->{{3.8210900418328705`*^9, 3.8210900520974216`*^9}, {
  3.821092374488412*^9, 3.821092375896674*^9}, {3.82120943832367*^9, 
  3.821209439363888*^9}, {3.821341998241963*^9, 3.821341998953062*^9}},
 CellLabel->"In[38]:=",
 CellID->43486516,ExpressionUUID->"f56b3a16-e0f1-437a-a4a2-41ff39ba9759"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"\\!\\(\\*SubscriptBox[\\(\[ScriptF]\\),\\(\[ScriptI]\\)]\\)\"\>\
", "\[Rule]", 
   RowBox[{"{", 
    RowBox[{
     TemplateBox[{
      "76.37736909475238`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
      "Quantity"], ",", 
     TemplateBox[{
      "0.896246348634651`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
      "Quantity"], ",", 
     TemplateBox[{
      "20.36207084466648`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
      "Quantity"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8210900534796977`*^9, 3.8210902864327393`*^9, 
  3.8210915515281687`*^9, 3.8210924207676525`*^9, 3.821092693895321*^9, 
  3.821209445969196*^9, 3.8212100978599224`*^9, 3.8212484934560285`*^9, 
  3.821248639104538*^9, 3.8212492877483273`*^9, 3.8212498821629066`*^9, 
  3.821249973514615*^9, 3.8213415966438804`*^9, 3.821342001289793*^9, 
  3.82254645431976*^9},
 CellLabel->"Out[38]=",
 CellID->60053270,ExpressionUUID->"d3fbbb6d-2050-4390-8c93-74573dee08fd"]
}, Open  ]],

Cell["\<\
The fugacities are returned as an array (List) of values, one for each of the \
gas components.\
\>", "ExampleText",
 CellChangeTimes->{{3.821092462668604*^9, 3.821092505960863*^9}, {
  3.821209458011026*^9, 3.8212095230420895`*^9}, {3.8212095677654905`*^9, 
  3.8212095677664876`*^9}},
 CellID->19900679,ExpressionUUID->"268f3d60-defc-4c0f-b0f6-6aad7aa92dfe"],

Cell[CellGroupData[{

Cell["\[ScriptF]=%[[1,2]]", "Input",
 CellChangeTimes->{{3.821209592298914*^9, 3.8212096123712077`*^9}, {
  3.821210067107163*^9, 3.8212100920913734`*^9}},
 CellLabel->"In[39]:=",
 CellID->315851757,ExpressionUUID->"59651fa6-30ee-44cb-b74e-8ca4d164580f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{
    "76.37736909475238`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"], ",", 
   TemplateBox[{
    "0.896246348634651`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"], ",", 
   TemplateBox[{
    "20.36207084466648`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
    "Quantity"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.821209614994194*^9, {3.821210075177579*^9, 3.8212101007472057`*^9}, 
   3.8212485023482494`*^9, 3.821249291551158*^9, 3.82124988632777*^9, 
   3.821249977828081*^9, 3.8213416069892154`*^9, 3.821342019333535*^9, 
   3.8225464588586235`*^9},
 CellLabel->"Out[39]=",
 CellID->59675123,ExpressionUUID->"e9de2c9d-bb23-434b-b41d-6f297643712b"]
}, Open  ]],

Cell["For an ideal gas, ", "ExampleText",
 CellChangeTimes->{{3.821248664358034*^9, 3.821248670678111*^9}},
 CellID->468065048,ExpressionUUID->"4de12257-e880-49ad-a132-d79da5923297"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[ScriptF]", "i"], "=", 
  RowBox[{
   SubscriptBox["x", "i"], "P"}]}]], "Input",
 CellChangeTimes->{{3.8212488711071205`*^9, 3.8212488911814394`*^9}},
 CellID->1013426,ExpressionUUID->"e65ed824-65ce-485f-ac9d-8997f484c5c2"],

Cell["and the fugacity coefficient, \[Phi], is defined as", "ExampleText",
 CellChangeTimes->{{3.8212489529732256`*^9, 3.82124898067714*^9}},
 CellID->322393653,ExpressionUUID->"4da2b3ab-d589-472c-ae8e-af81c1d92e9a"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[Phi]", "i"], "=", 
  RowBox[{
   FractionBox[
    SubscriptBox["\[ScriptF]", "i"], 
    RowBox[{
     SubscriptBox["x", "i"], "P"}]], "=", "1"}]}]], "Input",
 CellChangeTimes->{{3.8212489864696207`*^9, 3.82124903223761*^9}},
 CellID->310438009,ExpressionUUID->"ca713ebd-cacd-48c3-b3e6-fd0dc16f2495"],

Cell["\<\
For real gases, the fugacity coefficient is not unity, but very close.\
\>", "ExampleText",
 CellChangeTimes->{{3.8212490488292685`*^9, 3.821249090744152*^9}},
 CellID->84888699,ExpressionUUID->"e9b88635-ba3b-47e2-90eb-f68d94518d21"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["\[Phi]", "i"], "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{"\[ScriptF]", "[", 
     RowBox[{"[", "i", "]"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "*", "P"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8212496053691025`*^9, 3.8212496757409444`*^9}, {
  3.821249835411927*^9, 3.8212498567159843`*^9}},
 CellLabel->"In[40]:=",
 CellID->543376666,ExpressionUUID->"ddb6947f-b1b6-4dc7-9d55-cfa69e338038"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Phi]", "=", 
  RowBox[{"Array", "[", 
   RowBox[{
    SubscriptBox["\[Phi]", "i"], ",", "nc"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8212096218448734`*^9, 3.8212096595151663`*^9}, {
  3.8212098336275587`*^9, 3.8212098979565306`*^9}, {3.8212099464927335`*^9, 
  3.821209994604076*^9}, {3.8212100271570225`*^9, 3.821210038010999*^9}, {
  3.821249098181263*^9, 3.821249151310187*^9}, {3.8212491934145927`*^9, 
  3.8212492021642237`*^9}, {3.82124923750771*^9, 3.821249267124507*^9}, {
  3.8212495064614496`*^9, 3.821249558702897*^9}, {3.8212496810297728`*^9, 
  3.8212497537962112`*^9}},
 CellLabel->"In[41]:=",
 CellID->375393503,ExpressionUUID->"0f8b63bc-bc94-455d-aa3e-57650f5c095a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.964907867513667`", ",", "0.9614417110617481`", ",", 
   "0.9587691543473819`"}], "}"}]], "Output",
 CellChangeTimes->{{3.8212492509327793`*^9, 3.8212492973845587`*^9}, 
   3.8212495405006037`*^9, 3.8212497566994467`*^9, 3.821249867128127*^9, 
   3.8212499083199577`*^9, 3.8212499857090063`*^9, {3.82134207968215*^9, 
   3.821342092439064*^9}, 3.8225464732182407`*^9},
 CellLabel->"Out[41]=",
 CellID->593893816,ExpressionUUID->"b7246967-8349-436b-8291-e057aa0c576a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"cc9690a0-c660-4c06-8247-a463c29a9617"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "361dfefb-c4d1-4414-80fa-e897ac741dc6"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"a339f162-258d-4ef0-88a1-ea149b604d0b"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "910a6caa-7a1e-40ed-84e6-dd0c2fa515de"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"e2ae7199-8834-40cf-94b0-6cb21f87d9a0"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "1f721cfd-80b7-40cb-a6d7-5a076a4819bf"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"b2b88e17-9fc8-4ef2-bd21-7dc220675938"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "73c4fd77-4341-4ed7-972e-92a9fe8e773f"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"cfcbde18-25b8-41e9-b849-2896ec29d899"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "82cad67d-d82c-42c1-a389-9cff5afb2446"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"5a9e5274-7928-4be6-b88e-7907d0aa0f10"]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "077f7f46-6819-47e2-801e-0321b5403795"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"8c87f608-bb1b-48ce-a82d-99c59d9370a0"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "76f898ea-d5e4-49be-8d0b-aa5fd7420bea"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"e1186200-7d04-4faf-b9af-ba8157549535"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "a4f9b83a-0165-417f-969e-2e3ba7e8f42a"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"c4ed8ac9-7a78-4cb9-8b6c-57b11aecc44e"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "ef39fb7b-228a-4d75-b71d-1b78cc49a998"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"fb623868-b849-4787-afbe-10297ec9d56d"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "1ae29fb5-cdf1-4e0c-a1e1-cab852315e20"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"18c896a6-1cb4-4296-8ca5-4fde62f8138b"]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{-1796, Automatic}, {Automatic, 40}},
CellContext->"Global`",
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"242894e4-69f6-4c4c-b5c8-4b7b38650511"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[37650, 971, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"cc9690a0-c660-4c06-8247-a463c29a9617",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 40854, 1062}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 670, 15, 22, "History",ExpressionUUID->"23217300-ba47-427f-9618-ee1ed94d5c62",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1253, 39, 123, 1, 27, "CategorizationSection",ExpressionUUID->"476e9058-6f1c-4a2c-823c-9bbcf31a1e58",
 CellID->1122911449],
Cell[1379, 42, 134, 2, 31, "Categorization",ExpressionUUID->"9e1dc354-f401-4126-b312-e7fbeac0c42e",
 CellID->686433507],
Cell[1516, 46, 147, 2, 31, "Categorization",ExpressionUUID->"daad775b-3cb8-4a73-ad88-4b51724a59d9",
 CellID->710011846],
Cell[1666, 50, 136, 2, 31, "Categorization",ExpressionUUID->"8e141ec0-f48d-4d3a-800e-96a1f55d562f",
 CellID->255760520],
Cell[1805, 54, 212, 3, 31, "Categorization",ExpressionUUID->"7c3aa952-004a-4530-b8e9-5e6017805516",
 CellID->119959829]
}, Closed]],
Cell[CellGroupData[{
Cell[2054, 62, 110, 1, 17, "KeywordsSection",ExpressionUUID->"dd4ce286-acde-4c6a-b36e-ac34d5cca86b",
 CellID->477174294],
Cell[2167, 65, 172, 2, 17, "Keywords",ExpressionUUID->"f8946ddb-dd46-4bd3-9fa7-2c1c0ad64b9c",
 CellID->1164421360],
Cell[2342, 69, 180, 2, 17, "Keywords",ExpressionUUID->"98718c23-12b4-4c47-94ba-4ccb6fe02847",
 CellID->37148927],
Cell[2525, 73, 172, 2, 17, "Keywords",ExpressionUUID->"9c5598a1-a48c-451b-be3e-b7ce3d57dd47",
 CellID->91294015]
}, Closed]],
Cell[CellGroupData[{
Cell[2734, 80, 120, 1, 17, "TemplatesSection",ExpressionUUID->"dbc6f919-efaa-449b-a0f9-08bd14cddf6b",
 CellID->1872225408],
Cell[2857, 83, 149, 2, 70, "Template",ExpressionUUID->"5086b5af-fdf6-44a8-a048-ceb547565b04",
 CellID->1562036412],
Cell[3009, 87, 137, 2, 70, "Template",ExpressionUUID->"574fb1dc-f8ed-412a-9029-2ff32c6aac8e",
 CellID->158391909],
Cell[3149, 91, 136, 2, 70, "Template",ExpressionUUID->"fb5bd9b2-04f6-4f3e-8fc3-032a8173ea4a",
 CellID->1360575930],
Cell[3288, 95, 137, 2, 70, "Template",ExpressionUUID->"acda7792-bf96-4d71-a39a-4a2b46f3b6fa",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3462, 102, 108, 1, 17, "DetailsSection",ExpressionUUID->"9b52b2fb-8db5-4e97-ad79-a510212487a6",
 CellID->307771771],
Cell[3573, 105, 200, 3, 31, "Details",ExpressionUUID->"b6814cba-b7db-4309-bdaf-4b2d1f6cad62",
 CellID->670882175],
Cell[3776, 110, 202, 3, 31, "Details",ExpressionUUID->"8d18b29c-08fd-4215-a6f6-0b0d96f86ea4",
 CellID->350963985],
Cell[3981, 115, 193, 3, 31, "Details",ExpressionUUID->"941e0d70-2a09-4f69-bc8f-ecc274280f09",
 CellID->8391405],
Cell[4177, 120, 124, 2, 31, "Details",ExpressionUUID->"92637c71-6d6f-4aa5-b71d-3371ec5493ef",
 CellID->3610269],
Cell[4304, 124, 116, 2, 31, "Details",ExpressionUUID->"796ee797-f0d4-458a-a644-00f693cae07f",
 CellID->401364205],
Cell[4423, 128, 116, 2, 31, "Details",ExpressionUUID->"e8ece1c9-842e-41a2-a913-9eb2e741e851",
 CellID->350204745],
Cell[4542, 132, 118, 2, 31, "Details",ExpressionUUID->"1b357203-7548-425c-a1e0-9e05cbb23113",
 CellID->732958810],
Cell[4663, 136, 133, 2, 31, "Details",ExpressionUUID->"265db5bf-a8fe-403a-8505-c7e9d9a98b39",
 CellID->222905350],
Cell[4799, 140, 122, 2, 31, "Details",ExpressionUUID->"7b877f91-52ee-4d02-91fc-a7461a1ea1bb",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4958, 147, 176, 2, 62, "ObjectName",ExpressionUUID->"af5cb20b-71ea-4cdf-a060-0cb7a726f215",
 CellID->1224892054],
Cell[5137, 151, 1049, 27, 74, "Usage",ExpressionUUID->"5e240d8f-6f9c-427b-9e3b-c8da601f0b6c"],
Cell[6189, 180, 501, 8, 51, "Notes",ExpressionUUID->"49bc5376-75c6-4823-95dc-628aae001078",
 CellID->1067943069],
Cell[6693, 190, 752, 19, 52, "Notes",ExpressionUUID->"fd055398-65c3-4ff6-962c-19edab993cc8",
 CellID->233093082],
Cell[7448, 211, 738, 15, 39, "Notes",ExpressionUUID->"de428b8d-6106-4bac-b1c2-7324969cfb74",
 CellID->348432122],
Cell[8189, 228, 751, 16, 39, "Notes",ExpressionUUID->"6f537478-e75a-4cd3-bb97-a5b9e85e6e40",
 CellID->36396795],
Cell[8943, 246, 431, 9, 25, "Notes",ExpressionUUID->"408e97a1-606c-4ed8-b1f4-202d171233d4",
 CellID->702123745],
Cell[9377, 257, 690, 15, 39, "Notes",ExpressionUUID->"8646ad66-59cf-4910-9d8f-d731dd4e033c",
 CellID->185672948],
Cell[10070, 274, 996, 20, 52, "Notes",ExpressionUUID->"66a5031b-fc63-4685-bb1f-4dd5c82c5b6c",
 CellID->10490178]
}, Open  ]],
Cell[CellGroupData[{
Cell[11103, 299, 112, 1, 44, "TutorialsSection",ExpressionUUID->"8bc84343-7dd3-46a7-b538-c6585ab7ab15",
 CellID->250839057],
Cell[11218, 302, 342, 5, 16, "Tutorials",ExpressionUUID->"fe803c1f-1cc0-4327-b075-38c8efaaae28",
 CellID->341631938],
Cell[11563, 309, 339, 5, 16, "Tutorials",ExpressionUUID->"3d2591d7-9d10-4a54-be48-983097a172fd",
 CellID->339404089]
}, Open  ]],
Cell[CellGroupData[{
Cell[11939, 319, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"646c6404-8665-42fd-bef0-92fed0ef91a8",
 CellID->1268215905],
Cell[12080, 322, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"b305d1fb-a4b3-46e4-ad2d-0a33ded42e71",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[12230, 328, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"51a952f6-a5e3-4e29-bfa3-ec7cd4a2d8b7",
 CellID->1584193535],
Cell[12353, 331, 104, 1, 16, "RelatedLinks",ExpressionUUID->"f83a356d-b4bb-48f0-a7e7-6be543729993",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[12494, 337, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"e6816e94-7e51-4c4c-a91e-f51feafd0514",
 CellID->1255426704],
Cell[12607, 340, 98, 1, 16, "SeeAlso",ExpressionUUID->"ae1b094e-46ae-4e5e-8a64-db85809321d4",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[12742, 346, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"66b033bc-7ac3-4f37-8a76-5d74d67d9d5b",
 CellID->38303248],
Cell[12857, 349, 101, 1, 16, "MoreAbout",ExpressionUUID->"7142a65f-a76f-4086-bff0-d8de6240a1ea",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[12995, 355, 411, 11, 68, "PrimaryExamplesSection",ExpressionUUID->"d471fc03-ed79-46a0-bf44-4bd65a257721",
 CellID->880084151],
Cell[CellGroupData[{
Cell[13431, 370, 318, 6, 22, "ExampleSubsection",ExpressionUUID->"1d6e589a-f05a-45ec-9324-886f71e78817",
 CellID->70916644],
Cell[13752, 378, 203, 2, 20, "ExampleText",ExpressionUUID->"ff1d4da5-6dff-43b9-96a0-71d8f28b516d",
 CellID->541852276],
Cell[CellGroupData[{
Cell[13980, 384, 289, 6, 25, "Input",ExpressionUUID->"306dbcb0-016d-4bd1-a008-f37d31a041d5",
 CellID->810243786],
Cell[14272, 392, 780, 12, 24, "Output",ExpressionUUID->"9a7a6577-ca76-4a75-869b-325ac184fea0",
 CellID->739848057]
}, Open  ]],
Cell[15067, 407, 510, 9, 20, "ExampleText",ExpressionUUID->"06e25321-4eff-4c2c-ab5c-6e04b4342512",
 CellID->262208212],
Cell[CellGroupData[{
Cell[15602, 420, 1418, 29, 62, "Input",ExpressionUUID->"c1d28b49-5ee7-4b23-b8db-588eb9111c25",
 CellID->356756438],
Cell[17023, 451, 487, 9, 33, "Output",ExpressionUUID->"d65d72bb-8ded-4e72-ae3b-17a2064aab75",
 CellID->214620745]
}, Open  ]],
Cell[17525, 463, 725, 14, 22, "ExampleText",ExpressionUUID->"9d9c1903-bfef-45eb-a756-28922361c355",
 CellID->533785243],
Cell[CellGroupData[{
Cell[18275, 481, 533, 10, 25, "Input",ExpressionUUID->"2a569d0c-d76c-493e-8f44-95046f3aec5b",
 CellID->65065394],
Cell[18811, 493, 830, 16, 33, "Output",ExpressionUUID->"29f7aeca-1969-4a18-9f50-16f27e053a5f",
 CellID->97289482]
}, Open  ]],
Cell[19656, 512, 534, 12, 35, "ExampleText",ExpressionUUID->"9db527c2-ea9a-4955-a07e-62167cb3f834",
 CellID->138776035],
Cell[CellGroupData[{
Cell[20215, 528, 497, 13, 27, "Input",ExpressionUUID->"a2fc6b0f-f0f5-462d-8226-a342a21a078d",
 CellID->48723719],
Cell[20715, 543, 236, 4, 24, "Output",ExpressionUUID->"5dfee06f-95c2-403a-aaf1-a72e8b1cb710",
 CellID->725194]
}, Open  ]],
Cell[CellGroupData[{
Cell[20988, 552, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"9dfeb655-04d8-449f-b4d3-9ae1ce51cf9c",
 CellID->454095037],
Cell[21233, 559, 1273, 26, 51, "ExampleText",ExpressionUUID->"259bc89f-007f-4770-9510-d8863c76d47f",
 CellID->216850838],
Cell[CellGroupData[{
Cell[22531, 589, 688, 18, 62, "Input",ExpressionUUID->"948bf81e-8507-4113-b1b4-73ec60e8436a",
 CellID->69973367],
Cell[23222, 609, 359, 7, 24, "Output",ExpressionUUID->"2268c4d0-a41b-405a-8f8b-5f9351efd770",
 CellID->11534115]
}, Open  ]]
}, Open  ]],
Cell[23608, 620, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"3e425c9d-b8ea-4897-b2ce-dada0e73cc47",
 CellID->562040404]
}, Open  ]],
Cell[CellGroupData[{
Cell[23887, 630, 320, 6, 22, "ExampleSubsection",ExpressionUUID->"03a25205-b0c7-4c7d-849e-6cbabe771a5c",
 CellID->450938995],
Cell[24210, 638, 549, 12, 22, "ExampleText",ExpressionUUID->"e0f97880-d8e5-4be4-808d-c844f311f658",
 CellID->58646033],
Cell[CellGroupData[{
Cell[24784, 654, 798, 17, 25, "Input",ExpressionUUID->"ab2216d5-d0fb-4151-8887-cfa37cf589aa",
 CellID->8141322],
Cell[25585, 673, 613, 14, 24, "Output",ExpressionUUID->"e7db544a-88ef-4d37-8497-72b8bf96c12f",
 CellID->213225549]
}, Open  ]],
Cell[CellGroupData[{
Cell[26235, 692, 326, 7, 25, "Input",ExpressionUUID->"0bcfe231-dc10-4ede-8cfd-d30c52807504",
 CellID->169136916],
Cell[26564, 701, 250, 5, 24, "Output",ExpressionUUID->"18d70f1e-3a91-4a2c-92e3-4a4471ee56b6",
 CellID->460323837]
}, Open  ]],
Cell[26829, 709, 1218, 20, 48, "ExampleText",ExpressionUUID->"d1ba1d08-7fb8-42f9-ac70-a1d4f469686a",
 CellID->728165588],
Cell[CellGroupData[{
Cell[28072, 733, 1648, 32, 44, "Input",ExpressionUUID->"bcad71f7-51b8-46a5-9965-65c9cbae1088",
 CellID->109800155],
Cell[29723, 767, 1496, 33, 65, "Output",ExpressionUUID->"53b0e96d-d90d-421d-9475-382c83560dfe",
 CellID->166836263]
}, Open  ]],
Cell[31234, 803, 394, 7, 20, "ExampleText",ExpressionUUID->"866781f8-3494-403d-993a-94c316f8f6ac",
 CellID->14467608],
Cell[CellGroupData[{
Cell[31653, 814, 431, 8, 25, "Input",ExpressionUUID->"f56b3a16-e0f1-437a-a4a2-41ff39ba9759",
 CellID->43486516],
Cell[32087, 824, 1010, 22, 33, "Output",ExpressionUUID->"d3fbbb6d-2050-4390-8c93-74573dee08fd",
 CellID->60053270]
}, Open  ]],
Cell[33112, 849, 370, 7, 20, "ExampleText",ExpressionUUID->"268f3d60-defc-4c0f-b0f6-6aad7aa92dfe",
 CellID->19900679],
Cell[CellGroupData[{
Cell[33507, 860, 254, 4, 25, "Input",ExpressionUUID->"59651fa6-30ee-44cb-b74e-8ca4d164580f",
 CellID->315851757],
Cell[33764, 866, 751, 18, 33, "Output",ExpressionUUID->"e9de2c9d-bb23-434b-b41d-6f297643712b",
 CellID->59675123]
}, Open  ]],
Cell[34530, 887, 182, 2, 20, "ExampleText",ExpressionUUID->"4de12257-e880-49ad-a132-d79da5923297",
 CellID->468065048],
Cell[34715, 891, 264, 6, 25, "Input",ExpressionUUID->"e65ed824-65ce-485f-ac9d-8997f484c5c2",
 CellID->1013426],
Cell[34982, 899, 216, 2, 20, "ExampleText",ExpressionUUID->"4da2b3ab-d589-472c-ae8e-af81c1d92e9a",
 CellID->322393653],
Cell[35201, 903, 341, 9, 47, "Input",ExpressionUUID->"ca713ebd-cacd-48c3-b3e6-fd0dc16f2495",
 CellID->310438009],
Cell[35545, 914, 243, 4, 20, "ExampleText",ExpressionUUID->"e9b88635-ba3b-47e2-90eb-f68d94518d21",
 CellID->84888699],
Cell[35791, 920, 547, 15, 25, "Input",ExpressionUUID->"ddb6947f-b1b6-4dc7-9d55-cfa69e338038",
 CellID->543376666],
Cell[CellGroupData[{
Cell[36363, 939, 712, 13, 25, "Input",ExpressionUUID->"0f8b63bc-bc94-455d-aa3e-57650f5c095a",
 CellID->375393503],
Cell[37078, 954, 511, 10, 49, "Output",ExpressionUUID->"b7246967-8349-436b-8291-e057aa0c576a",
 CellID->593893816]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37650, 971, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"cc9690a0-c660-4c06-8247-a463c29a9617",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[37808, 975, 242, 5, 31, "ExampleSection",ExpressionUUID->"a339f162-258d-4ef0-88a1-ea149b604d0b",
 CellID->1293636265],
Cell[38053, 982, 265, 5, 19, "ExampleSection",ExpressionUUID->"e2ae7199-8834-40cf-94b0-6cb21f87d9a0",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[38343, 991, 244, 5, 19, "ExampleSection",ExpressionUUID->"b2b88e17-9fc8-4ef2-bd21-7dc220675938",
 CellID->2061341341],
Cell[38590, 998, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"cfcbde18-25b8-41e9-b849-2896ec29d899",
 CellID->1757724783],
Cell[38840, 1005, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"5a9e5274-7928-4be6-b88e-7907d0aa0f10",
 CellID->1295379749]
}, Closed]],
Cell[39102, 1013, 248, 5, 19, "ExampleSection",ExpressionUUID->"8c87f608-bb1b-48ce-a82d-99c59d9370a0",
 CellID->258228157],
Cell[39353, 1020, 259, 5, 19, "ExampleSection",ExpressionUUID->"e1186200-7d04-4faf-b9af-ba8157549535",
 CellID->2123667759],
Cell[39615, 1027, 252, 5, 19, "ExampleSection",ExpressionUUID->"c4ed8ac9-7a78-4cb9-8b6c-57b11aecc44e",
 CellID->1305812373],
Cell[39870, 1034, 257, 5, 19, "ExampleSection",ExpressionUUID->"fb623868-b849-4787-afbe-10297ec9d56d",
 CellID->1653164318],
Cell[40130, 1041, 249, 5, 19, "ExampleSection",ExpressionUUID->"18c896a6-1cb4-4296-8ca5-4fde62f8138b",
 CellID->589267740]
}, Open  ]]
}
]
*)

